Handling Rich Text Signature in Lotus Script

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: Handling Rich Text Signature in Lotus Script

Feedback Type: Question

Product Area: Notes Client

Technical Area: Application Development

Platform: Windows

Release: 8.5.2

Reproducible: Not applicable

Hi,
I have a form on a custom database that we use for emailing from an external application.
Essentially in the external application you press a button, and the eventual result is a Lotus Notes email.
The database handles HTML and text signature's, but unfortunately, Notes 8.5.x has introduced a new Rich Text signature option..
Does anyone know how to handle this? I see it's 'Option 3' but I'm not sure how to insert it?
Some of the existing code is below:
Dim enable, sigoption, signature, filetype$
enable = profile.GetItemValue("EnableSignature")
' this is a checkbox in the Notes mail Preferences window.
If enable(0) = "1" Then
sigoption = profile.GetItemValue("SignatureOption")
signature = profile.GetItemValue("Signature")
source.Gotobottom
Select Case sigoption(0)
Case "1"
source.insertText {
} & signature(0)
Case "2"
signature from '" & filetype & "' file '" & signature(0) & "'"
filetype = Strrightback(signature(0), ".")
If Ucase(filetype) = "TXT" Then filetype = "ASCII"
source.insertText {
}
Call source.Import(filetype, signature(0))
End Select
source.goToField "Body" ' returns to the top of the email body.
End If
End If

Feedback number WEBB9G2K3B created by ~Evelyn Cisnither on 02/05/2014

Status: Open
Comments: